Option Explicit
Sub E_Sample017()
   'ո E_Data01u@
    Dim mySht As Worksheet
    Set mySht = ActiveSheet			'Nu@
    With mySht
        If .FilterMode Then
            .ShowAllData
        End If
    End With
    Set mySht = Nothing				'
End Sub
